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FOR Your information, modem users for jocal area BBSs, 8)Nyi is the setup for both TCCS and BUBBS. Phone numbers and 
times are focated in this issue, 
NOTICE to all local area SINCUS members, July is dues due month, dues are still #84 year, if you can’t pay in 
person, wail it in to above address, and stay on the mailing fist. We need you, your support and your input, re-up 
in July! 
anne oman an arene etary Ss Mategmm ttt tt tt errr en 
May Meet-final results are in and announced for the el ec 
officers for the year 1967-1988. As there was only one 5 
candidates, not many were holding their breath on this one. oo here 
are the offical results: 
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Preasident------- Taha Sims New that John 16 retiring from 
Vice President--Dave Schoenwetter ibm, he’ ll have up ta 24 hours 
Tre#asur errno Gearge Fenney a day to devote ta his sinclair. 
Secretar yorccccs Paul Hill Have a Happy, Best of luck and 
Trustee ccm c creme Gan Lame Health te the newest retiree! ! 


Wes breaozowski 

William Tilley 
June Meet-Wes demoed his Fraportional Frinting Frogram and went oan 
details on how and why he developed such. His article and program 
listing starts on page Ll. Note printing error motice at top aft this 


And just when we thought we'd seen it all, 32 columns, 64 columns and now proportional print, with 32 plus columns, 
I chowed the program we got from Richard Hurd, “Dragon's Companion” which uses 85 columns. Yup, 1 counted them, and 
I noticed a couple other believers after they counted too!! If you use a TV for a video output, 85 columns viil be 
a touch hard to read. But with wy littie Zenith mono monitor the letters are readable. After this demo, a tape 
received from Joan Kealy of El Paso, Texas was shown. Joan has collected info, data, tips and tidbits of handy dandy 
ideas for programming, publications, user groups and anything else the T52068 wor/d touches on. We will include this 
in our tape library to spread the idea around. If you see this interesting program, and wish to contribute sore 
ideas and helpful hints send Joan your efforts. Her address is on the tape. 
Have a Happy, Safe and Heaithy Fourth of July on this year of the 
eoath birthday of the Constitution, . 

Gr July iy Have a Sate, Happy and Heaithy Dominion Day. It is the 
L20th birthday of Canada’s proclamation of the Dominion. 
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SINCUS NEWS-JUL/AUG BY-TNDEX 

July 15 ~-wWecinesday-7pm -next meet Gecretary’s Moteses.aceaes | 
“Vestal Library-DUES DUE- New,News» Views & Reviews.. = 

August 15 “Wednesday ~7pm-end af PCHSOO—part Zoaecerreeeeee G 
summer meet already: ) BBGs. aces css toeresenattens G 

Came on cow and demo what you been ' Wes's ROM Disassembly..... 7 
inte all winter-see what's up!! Fraportionai Frinting«... di 
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NEW: From member Richard Hurd, Warrenton, Oregon, an adoptation of the 5 character print driver software in the 5 
Technicai Nanual. A program demoing the capablities of this, tae “Dragon's Campanian" vag also adapted by Richard. This 
is om a local BBS called BUBBS-607-693-3359, the board is on 24 HOURS A DAY 7 DAYS A WEEK. Look fer “"DCTBS.BAS® and 
“DETGS.BYT" in the Timex fiie section. Tha basic download ig about 12 minutes, and modem is used. John Colonna 
downloaded it and reports it works, and it 15 amazing! A very big thank you to Richard for ali the work and for letting 
us share it. [ hope before the snow flies, we can get a tape back to you with a whole bunch of goodies on it! 
NEWS:LARKEN Electronics, RR #2, Navan, Ontario, Canada K4B iH New products for sale...LKDOS Extended Basic Cartridge 
($65 USifully Spectrum compatiable, plugs in the cartridge port but shadows an area of the Sinclair ROM and takes over 
controi when its commands are used. Other cartridges as the G5-64 or Spectrom emulators can be used with a modification, 
The LE-EXEC uses its own SK ROH and Gk RAH. it will support i to 4 floppies as weli as the soon to be reieased 256K 
RAMBISK , 

NEW: 2068/5PEC Disk Interface-doubie density Interface can put 400K on a DS 5.25" drive. NMI save button and a Keapston 
compatiable jyoyetick port-($60.00 USiBoth the LKDES and the 2G63/SPEC controiler for $115.06. 

2481-2058 Disk Coatroiler beard is a single density disk controller for the 2068-27481 that can out L60K on a DS 5.25" 
drive. Can control Z drives. ($99.00 U5) 

256K RAN DISK should be available in the spring of 19987-which one might note is rapidiy drawing to a close! cost is 
estimated at $40-50 without the & 255k chips. You also need the above LKDOS EXBL cartridge. 

Write for info, shipping casts $5 per ordert?) If you order the same from RNG, 1419 1/2 7th Street, Oregon City, OR 
37045 add $3 for Shipping. Alf the above data from CCATS-Piotter May 1987. 

REVIEWS: From Ian Robertson; SincBits. Apr/May 87 S7HC-LIH#E- “...Larry Kenny of LARKEN ELECTRONICS has done it again! He 
has produced a disk interface cartridge, that plugs into the cartridge port, which turns your AMEX interface inte a 
LARKEN interface. And it works! Tt comes with the DOS on a 2764 Eprom and the FORMAT software on tape. The FORMAT 
programme 15 loaded into the computer and after configuring it to suit your ‘up to 4) drive system, it joads itself to 
disk. I have tried it on both SSDD 2" and 3 1/4° DSQD drives, without a problem. The LARKEN extended sasic commands also 
work an my RANEY hybrid. Now for the interesting part - the cartridge does not have to be removed from the cartridge 
port when the RANEX DUS is used AND by switching aff the RAMEX DUS eprom, the RAMEX does not have to be modified in. any 
way." 

At the Fest, Tom Simon, The CUYAHOGA VALLEY SOFTWARE WORKS, 615 School Ave., Cuyahoga Falis, G4 44221 was demonstrating 
their iatest version of SPDOS for tne Ditger Disc interface. If any JLO Users are interested in using a different DOS, 
this is the one, it comes on two dises, one to boot the JLO/SPD05 system and the other has the SPDOS software. The 18 
page Manual i5 easy to read and is self expianatory. 

VIEWS: Gn the 1987 ComputerFest in Indianapolis-from Rod Gowen, of RAG, and Cca7i Plotter (note addess above?," 1 can 
nonestly say that f reaisy enjoyed the whoie weekend, Other than the fact that [ got oniy about 10 hours sleep in 4 
dayS; it was a super affair!...over 47 deaiers and user groups having tables, there ware walkways about 5 feet vice and 
with an estimated i006 people there on Saturday.,.tneare was barely room to turn around...for Sundays’ crowd. At Jam the 
doors again opened up and we must have had an additional 200-300 peopie who had not been there on Saturday’...] noticed 
that a lot (7) , I siould say most of the dealers were already packing up by Zpm!...By dpm there was NO ONE LEFT in our 
exhibit room other than my wife and myself!...the SNU6 user group had made over 27 hours of video tape.<NOTE> Tape of 
ind Fast available from SNUG, PO Box 101, Butler, WI 53007, Send for data on costs. 

FROM lan Robertson, “The second MIDWEST 7/5 COMPUTER FEST, in Incianapolis; IN, was an unqualified success, both from a 
vendor and a spectator ivisifar) viewpoint....My cup runneth over and ay waliet runneth cut of cash - what 
temptation’...07 course I attended ai! the hardware oriented seminars and was impressed by their content.* 

From SMUG Bytes, Bili Heberlein, May 87," Well it's over. The and Fest is now history and as unbelieveabie as if might 
seem this one was better than iast year. The show space vas larger and there were more seminars. Gne new item, and 1 
nope if will be a raguiar fixture at the show vas the SWAP SHOP.....The seminars were very good and very diversified. 
Here are a few tifies: Machine Code for the Zka1/TSi000: Computer Widowhood: Desktop Pubiishing: The FORTH Language. 
Each of the seminars were wel! attended and they were interesting.* 

From Frank Devisy Indiana Sinclair-Tisex Users Group, Host/Sponsor of the 87 TS ComputerFest, “...CTH Hagazine, i704 
Drive Birmingham, AL 29235 (205) §54-0271,...nave taken over 73 Horizons and wiil be finishing out the subscriptions of 
ali who had been awaiting their next issue of 73 forizons.* 


Continued on page 15 


THE C8302; A CLONE OF THE T/Simaa 


Part &@ AND THE AUTHOR LEARNS MGRE. 


T had epted ta remove the MHOZiS transistor and I had 
purcnased a solder sucker at Radia Ghack and I removed the 
transistor that I thought was goed and checked it orn the 
transistor checker and found it was NPN. Digging out my stock of 
spare parts (tmy wife thinks that I have ai gunk yard in the 
basement) I found a stock of ENZZEEA transistors, a couple 
hundres and I selected several with adequate lenoths and checked 
them and found one dead and pitched it and the others semed ta 
be of the same level as the MH9Z13. A pin vise and a 1/32 drill 
followed by a drill of @.@39 diameter cleaned the solder out of 
the hales so the transistor leads went in easily and I carefully 
soldered the connections. With the chips still out I powered up 
and the LED pawer on indicator came on and no smoke. I put the 
chips in and with a piece of cardboard to insulate the battam of 
the keyboard I pawered up and got a series of beeps but nothine 
the screen and ther silence. Subsequent handling flexed the 
keyboard carnnectar cable enough that the wires parted at the 
circuit boards. 2f shelved the unit far later repair. 


The second PC838@ that I erdered March Sth arrived Friday 
the 28th and Io coat lecture number XXX (not the first time 
wbviously) from my little helpmate about the fact that I was 
getting far too much stuff (computers) and snending far toa much 
time in the basenent playing with said tac much stuff. Haw carn 
one that stands an even 62 inches be so aggressive? I saw that I 
wasoan thin ice so I waited till after supper was over and I had 
helped with the disnes ard finished vacking my Lunch tea take ta 
work the next day before I dissanpeared into the basement. 


Yeo, Io get the end computer and the i64 ranupak hawever 
while I was getting the PC8SY2 cut af the Foam box I turned it 
over and got a tinny rattle and I felt something sliding inside 
the computer. I considered that if- I sent it back I wentd be 
three weexs ta a month before I get a replacement if I gat ome. 
Sa t carefully tilted the computer and decided that the rattle 
wasn’t a loose chip and was bigger that any other component that 
To onuld think of se I carefully opened the computer up and found 
the friction fit caver of the video madulator had came off and 
was rattling around. I pressed it into place and saw that the 
chips apreared to be firmly in toeir sockets and ciosed up the 
eerputer and carefully set it up and turned on the oower. 


T heard two teeos and the screen came tu life in inverse 
video with a statement at the tap left side that said READY and 
a flashing cursar in the bottom left corner. Ard each key stroke 
gAVe an audible beep that was slightly different toned fer eacn 
key. I had an incomplete statement entered when I sressed the 
evter key and gat a low pitched "growl" and the computer gave a 
sort of syntax error. But the manual was still in Chinese with 
mayse 1/4 ta 1/5 in English and lots of puzzles toa sort out. 
However it is sa similiar to the T/Si@a@a@ that you could almost 
use the PCASZ70 witheut an instruction manual except far the 
twirks that are different. 3 


- 


When the screen came to life it was with a black screen 
with white characters and it came to life on channel 3 and so 
far Il have seen mo way ta change that if you warted ta. Aiss the 
Signal is much stronger than from the T/S1a@@d and you can turn 
the brightness ard contrast controls down. The screen seems more 
stable. The TV cable that came with it had a different connector 
on the TV end and there was mo TV/computer switch bax inelucec 
with the computer but I used the Timex switch box aancd, cable 
since it was already in place. 


It typed irs some REM statements had tc speil aut REM and 
SAVE'd the orogram and LOADed the program back in. On SAVEIng 
there is no -S second blank screen it goes inte the SAVE screen 
display and gives an OX line NO. after Finishing. I typed in 
NEW one letter at a time and then LOAD and leaded the pregram 
back im. I have a SQ@ Micreampere meter and a speaker across the 
LOAD line from the taperecorder and I can see the level oF 
the signal and hear the signal while LOADing.a pregram. Instead 
cf a &S secemd silence there is a shrill whistle ard the whistle 
erds ard the pragram begins immediately. I thought something was 
wearng and Ivaborted the LOAD but the LOAD display was still on 
the screen sa I activiated the tape player amd without the full 
Five seconds of the whistle the program LOADed OK. 


i knew from checking the signal names an the interface 
cormectar that the T/S1@@@ and the PCS&3SA2 were the same sai Tf 
turned off the pcawer and plugged in the T/S@@42 printer and 
tried it. I had no trouble LLISTimg the pregram that I typed in 
ard later TIT had the LPRINT command working except that you have 
fa spell them out. Other accessceries will pessibiy work if 
the change in the character set doesn’t confuse the comouter. 


+ 


Tl have LOADed in a couple of T/S1IMAA prograns and one game 
worked or seemed ta except for the character for the vehicie 
showed up for a letter. I haver’t tried ta debuo the pregran. Tt 
tried te load the PCS&SAA preagram on tage inte the T/Sisa@2 but it 
defaulted but then the T/Sis@2 has always beer fussy abpaut the 
lead level. And the tape nas a strong signal aon it. Ard the 5 
seoond whistle might confuse the computer. A Friend, Mike in 
Muscatine, thinks that the five second whistle 16 a Signal for 
the PCAS22 ta recegnize its own program and if it doesn’t have 
the whistie then it will transiate the prepram from T/SiWaAa tea 
alimast PCSSQ@2 Basic. I will have to experiment and try to find 
cut. he 


Last might a friend stopped in and we played with the 
PCBSAS a littie and he showed me the way toa run off th 
character set. Ard wher he saw ink, border, paper he thounht 
that it was a color computer and wanted to see the manual where 
it listed the character set. Comparing the character set as 
cisplayed by the camputer with the manual the computer displays 
ink, paper, boarder while the marual states that those addressee 
are met used. See the character set of the PC&S24 compared with 
the T/sisga, 


Above one of the keys is the cemmand “LINE NO." and 1 
hadwtt Figured out yet and Gary suggested that I press shift and 
that key and at the bottom appeared a number and we tried it a 
couple of times and what it is is ar automatic line rnunbering 


@ 


that increments by 12 and would help te avoid iline rnunber 
oroglems. 


Reset does not work like I thought it would, in fact I 
gar’ t see 4 real use for it. I've had the computer go off inta 
the never-never land and there was no way I could get it back 
without turning off the power. One possible small use is to use 
if to clear the bottom twa lines and it does that without 
loasing what is in memory. 


Mare about the manual. I did wet find a Manufacturer’ s 
name or the name of the printer and furthur I did not find anv 
copyright netice nor a part number or book number wor an autbhens 
rane. It does make you wonder and especially since the tmarual 
and the character set in-the ROM are mot identical. I feel that 
the lack af identity is a way around copy rights. 


The little pregram giver below will -print out on the 
T/SE@42 printer the character set. Ali key ounches have been 
given. The complete program is as either the printer wili print 
aut om as the screen will cisplay it after entering. You might 
have ta enter a line like: FOR S=127 TO 255 to see it all. 


SMdaFORS=2TOeSS AFTER THE SECOND 5 PRES ENTER. 
SHIFTLINE NO. (PRESS TOGETHER)LPRINTCHRS$S;" “3; PRESS ENTER 
SHIFT LINE NO. (PRESS TOGETHER)NEXTS PRESS ENTER 


92 FOR S=f TO 255 
S212 LPRINT CHRE Ss 
dic’ NEXT & 


rT Ds 
g 


You will have noticed that there is ne mneed tao put in 
spaces when you spell aut what is a single stroke entry on the 
T/S1@80. When you enter the line the comouter adds the spaces as 
needed and if it doesn't it is easy to edit. 


Bob Hoover did state it right: pastage does cost neoney and 
wher I have wrote asking for help or some such I have used a 
SASE. My wife if quite monetary minded and eyes the letters I 
write and all is fine as long as the househeld stamps aren’t 
used for my ceamouter hobby. I will try to answer ali letters; 
however To am inte a let of ten hour days at my work place olus a 
ioc of Gaturdays and that does eat into ai lot of my time. 
However, after. December I will be anather ROC like Oscar. 


Next time I will try ta work from the XZ@i, the T/S1i@@@ and 


the T/SisOa@ manuals and the PCA83@2 manual, I will try to Fined 
the areas where the camputers differ and give examples. 


wmiaid GS. Lambert 
Ciover Drive S. WwW. 
apids, Towa 52424 
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PUBLIC DOOR TM SOFTWARE EXCHANGE 


RATES 
LJALS 
Loa/i4 
16/15 
L6é/1L5 
Loy 14 
La/is 
14/15 
LGZ7 iS 
t7/ 45 
16/15 
Lod US 
L74/2S 
L4/is 
146/135 


ate say 
ff dic. 


16/15 
14a/is 


16/15 


“2/14 


L4/is 


14/15 
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fA 
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FOR THE FIRST 


CROCCO AGAR RAGGA RRC GR AGaU RR AGRO OR aOR BK 


pHandle a ‘cursor right® =. 
} Identical to Spectrum at 1006 


6372 7E tS A, fH) Set character 
6873 FEGD & 80 EXTER character 
e873 t8 RET u1f already at end of line 
376 «23 Re gUpdate cursor 
0877 225856 LOB77 LB (K_CUR),HL «Redo K_CUR 
637k CF RET 
sHandie a “SELETE® 
t Identical to Spectrue at 1015 
B78 CD9708 CALL 40897 pDecresent cursor, unless at start 
GB7E O10100 tB BC, 80001 jOne space 
0881 C3SOI7 oP «81756 pReclais the space 
slqnore the next 2 codes 
3 Identical te Spectrue at {Gif 
OB8$ COCFIL CALL SLiCr pisit for a key 
$887 COCFII CAL O1ICF Agata 
- filandie an “EXTER? 
§ Hdentical to Spectrue at 1024 
BBA EY LOBSA POP HL pTrash the RETurn to gage 
obe8 ES POP HR Trash the RETura to SOBES 
nse Ei LOREC POP Hi, 
O88 223D5C LB ERR_SP),HL yRestore old valae 
8890 FDCBOOTE - BIT 7, (1¥90) pERR_UR 
ears co REY NZ lf ac errors 
89S Fe £8 SP pOtherwise, juap to error routine 
e896 «CF RET Effective JP 
tlsed in deleting. Maves the cursor 1 space left, unless we're 
$ already at the beginning of a line 
4 Identical to Spectrus at 1631 
7 37 ser 
OB%8 =COFBOC CALL #0crs Put value in DE. ELINE for editing, 
3 or WORKSP for INPUT acde 
O298 E852 $C Hy DE 
Os9D 19 ABD HL, DE 
ORE 23 tC HL 
OBYF Ch POP 2 ' glrash retura address 
O8A0 be RET. ¢ : Se RETura is to @OASE 
ORAL CS PUSH 3C gRestore RETurn address 
4802 48 {9 BH . 
OBA3 48 nS plurser address 
sThis keeps control characters & their follow up bytes together 
2 f during deletion C 
oat 42 LORAS LG OH,D 
O5AS 8B LD OLE 
C5 23 TMC HL 
OBA? 18 LB OA, (DE) 
OAS EaFe AND SFO 
OBAR FEIO Ce 816 
ORAC 2009 aX = 82,L0887 
OBAE 23 we 
GBAF 1A tb 8, (DE) 
6330 Bei? SUB 417 
6552 CEOG ABC A, 800 
0834 2001 oR NI, LOBE? 
8836 23 Int ML 
G28? AT £0887 AND a 
GREE E842 §8C HL, BE 
6228 0? ADE HL, BC 
ones Ee EX DE,HL 
GB8C 38s dR C,Losaa 
ORDE CP RET 


ORF 
ORtS 


opts 
03? 
Bea 
acs 
OBCE 
O80! 


68R4 
9807 
OBBY 


BOC 
OREO 


OBE? 


OBES 
OBE 


OBES 
Oper 
OBFE 
OBFa 
OBF7 
OBFA 


jRandle a “cursor up® 
f Identical to Spectrua at 1059 


FOCB376E BIT 5, t1y#53) qFLAG_T 

C6 RET NZ if in INPUT eode 
2A49SC LD ML, tE_PPC). = jLine nuaber 

Codes CALL BL6D6 pet its address 

8B €r SE, HL pPoint to previous line 
Cb2413 CALL 81324 pet line & 

234A5C Lb ML, aSC4A gE _PPC - hi byte 
Chesié CALL 81668 Store the nueder 


COEIL4 = «LOBDS CALL OL4E! 
3E00 LDA, 900 
C33012 aP «81236 


3Do an autosatic listing 
gStreaa 0 for channe) “K* 
gMake it current channel 


For syebol shift & graphics 
3 Identical to Spectrue at 1076 


FOCD3I7E BIT 7,(1Y05S)  jFLAG_Y - for INPUT ... LINE... 
2648 aR 2, LOBBA lf not 
CETOR ap 8ORET qMf we are 


jHandle an editing error and sake the 152068 honk at the 
$ errant prograeser 
} Identical to Spectrus at 107F 


FRCBIO46 BIT 4, (ive4@) FLAGS2 

2888 aR «2, Lobe 31f not using channel ‘K° 
FO3A00FF “LB (E¥e0),8FF = g ERR_WR ~ a0 error 

1400 LB 8, #00 

FRSEFE 4B OE, i1¥-2) pRASP 

219618 LB ML, B1A90 gPitch 

CPF SOS CALL $O3F3 sBEEP the raspberry 
36608 oP BOARS gBask to the editor 


yClear edit area or workspace (depending on acde) 
4 Identical to Spectrue at £097 


&3 PUSH HL ; 

COFSCE CALL S0CFS Point DE & HL to proper spaces 
28 BEC ML 

£84917 CALL 81749 yClose up the space 

223850 QB (K_CUR) HL 

FD340700 LB OEEY#7),800 «=. MODE - K acde 

13} POP HL 

cy RET 


pinput a key & handle sode switching & caps lock 
q identical to Spectrua at-10A8 


FOCBO2SE BIT 3,¢1¥¢2) iTV FLAG 

CAB30€ CALL NE, #0083 z€opy line te lower screen 
A? AND A yC¥=0 

FOCBOLEE BIT 3, CIY#8} gFLASS 

8 RET 2 slf no key was pressed 
JA0BSE LD A, (LAST_R) 

FOCBOIAE RES $, ¢1¥#1) gFLAGS 

FS PUSH AF 

FOCBO26E BIT §, (1¥+2) qTV_FLAS 

C4908 CALL M2, 80889 Clear lower sereen 

Fi POP AF : 

FE20 oe 20 

3052 aR «ME, LCS yPrintable character or token 
FELO eC) . 

3020 aR ORC, LOCO ySoae contro! codes 

FEOS a) 

300A | 9R OME, LOCAS pMode & CAPS LOCK codes 


FLASH, BRIGHT & INVERSE 


9 iB OBA 

£401 AND 80] 

iF td CA 

78 LD A,B 

iF RRA 

C612 ASD A, 812 

182A aR LOC6B 
yHode & CAPS LOCK codes 

2009 LOC4i JR |Z, LOCAL 

218A5C LB HL, FLAGS? 

3E08 th A, 808 

aE TOR {HL} 

n LB. tHL),A 

180E aR LOESA 

FECOE = LOCAC CP ROE 

be (RET GS 

eon ~ SUB 80D 

2U415C LD ORL, NODE 

BE ce tHE - 

71 LS (HUA 

2002 aR WE,LOCSA 

30 LB (HL), 206 

FOCBO2BE LOCSA SET 3, (1¥2) sTV_FLAS 

oF co oR 

ce ; RET 


The rest of the control codes 


gCopy line in INPUT or EDIT area into edit line on screen 


fJuap address 


gUse persanent colors 


gh OP address 


Print the line 


a7 LOCeO LO OB, A 
£607 " #ND 867 
F LB OE, A 
310 LB A, 816 
£858 BY? 3,8. 
2001 oR WZ, LOCEB 
¥ Int A 
FO7IDS LOCOB LD (1Y-45),0 © sK_DATA 
Hiy3er LB BE, 80073 
1806 oR LOC79 
saonse LO A, (K_BATAD 
fiGE0C LR DE, FOC0E 
2A4FSC = LOC79 LD OHL, (CHARS) 
3 Tee 
B INC HL 
3 LB CHL), E 
23 HC 
72 LB iM) 5 
v boce: SCF 
cy : RET 
4 Identical to Ssectrue at L113 
e5980e CALL 80869 
FOCRO29E RES 3, 41982) #TV_FLAG 
FOCROZAE RES 3S, i1Ye2) yTV_FLAS 
2A8ASC LD HL, (SPOSML) 
&3 PUSH HL 
2A383C LB WL, (ERR_SP) 
&5 PUSH HL 
2icnec LB AL, 40CCD 
ES PUSH HL 
EBV3303C LD {ERR_SP),SP 
2A825C (5 WL, (ECHO E) 
&3 PUSH HL 
AY Scr 
cOFBOC CALL GOCFE 
£8 EX BE, HL 
CoewS CALL BL5CF 
13] EX OBE, HL 
Co2018 CALL $1620 


pPrint the cursor 


6808 
OR0E 
8510 
O51 
OBIE 
6017 
Obie 
OBIA 


" gPoint WL to start & DE to end of space OBIE 


cogsee 


SABESC 


1600 
FOSEFE 
219618 
COFIOS 
FOSGOOFF 
EDSBSASC 
1802 


CbL409 
31 
22825€ 
FD3462600 
cy 


EDSB595C 
FOCES7&E 
ca 


EDSBSISE 
ba 


2ARB3SC 
C9 


7€ 
FEOE 
010600 
CC5017 
TE 


LD HL, (SPOSML) 
EY (SP) HL 
EX. DE, HL 
CALL 20988 


LOCBé LP 
SUB 3 
an C,LOCE2 


SR HZ,LOCCS 


tp ASE 
SUB (i ¥#80) 
JR WC, LOCE2 


Loces LD A, 820 
PUSH DE 
CALL 90500 
POP DE 
aR = LOCRS 


gHandle edit errars 
Lb ob, 800 
th o£, ¢f¥-2) 
LB HL, @1A9¢ 
CALL 863F3 
Ly oreo), FF 
L8 BE, (SPOSHL) 
dk = LOCEs 


pHorsal exit 
LOCE2 POP DE 
POP HL 


Error exit froa here 
LOCE4 POP HE 
LB (ERR_SP? HL 
POP BC 
PUSH DE 
CALL 80714 
POP HL 
£8 {ECHD_E) HL 
LB LY#38), 806 
RET 


gUse persanent colors 


A, (SPOSHL ¢ 1) ghicbyte - line nusber 


38_POSN ~ le byte - coluen 


pAa ASCIL space 


Print the space 


pRASP 

gPitch 

gBEEP routine 

yERR_NR - cancel any error 


Save pointers 


ySet HLeaddress of first byte, DEslast byte of work or edit spe 
j Identical te Spectrue at 119¢ 


BML, CHORKSP) 
DEE ML 
aNo A 


UD DE, (ELINE) 
BIT 5, (1¥#$3) 
RET I 


LB DE, (HORKSP) 
RET C 


LP ML, (STXBOT? 
RET 


pReaove the extra flostiag point garbage froe a SASIC line 
3 Identical te Spectrua at L187 


LODOD LD A, (HL) 
PRE 
LBC, #0008 
CMLL 1, 81750 
LDA, tH 
ER HL 
cP 808 
JR H2,LODOD 


Lid 


pusber slug character 
35 bytes for ruaber * § for slug 


pReclais the space 


ENTER character 
sloop again if not at end of Line 


0068 


Ob6F 
e076 
B72 
GB73 
0074 
0077 
6578 
6878 


0077 
0822 
$85 
6088 
OBE? 
Ob2€ 
G0GF 
6371 
6092 


pOeeasartessesesssegeseescesscsagegy 
g8 The Top Level Executive Partion $ 
peeeessasssisaesasseseassesezggsgege 


pNEW handler 
§ Sisilar to Spectrue at $197 
FE 3! 
SEFF. LD A, OFF {NEW ~ not power up 
EdSBa25C LB DE, (RAHTOP) 
o¢ Ey 
EDaBBASE LB GC, (P_RAKT) 
EDSBSESC LB DE, (RASP) 
2A7BSC id ML, (ube? 
be Exx sPut ‘ea where NEW can’t get *ee 
yEnter here at Power Up 
4 tb OB A -gSave the NEW/Power Up flag 
307 LD A, #07 
DSFE OUT (SFE) A sthite border ; 
SESE LD OA, ASF Se Refresh cycles “point® to RON 
ERG? Lo OTA j {it’s useful when debugging the hardware) 
90 ROP 
90 hOP these cause extra Ai cycles (hence 
60 wor extra refresh cycles) before RAM is 
00 ROP § used at power up. This is a 7-80 
06 . RP § hardware requireaent. 
00 : wop ’ 
The RAK check 
62 Lp oH, 
aB 8 LE 
3602 -LOD42 LD (HL) , 802 
28 - BEC RL 
BC cP on 
20FR - OR WI,Lopa2 
a7 LODSB AND A 
E952 SBC HL, DE 
19 ADB HL, DE-~ 
23 — Tat 
3006 dR WE, LODSS 
33 BEC (HU 
2803 . oR 1.0055 
33 BEC HL} 
28F3 oR 7, hoD4B 


28 sLODSS DEC ML 


sRestore systea variables that NEW austn’t wipe pat 
oY EXX 


EDA3BASC LB {P_RANTD, BC 

EDSS3eS¢ LO (RASP?, DE 

227850 LB (06) ML 

0 ext 

08 INe 8 

2819 JR 1, LOD7F FEE doing a NEW 
jHere if Power On or RESET 

22848C LD ¢P_RANTD , HL 

LIAFSE 12 DE, #3EAF 

O1A800 (SBC, a00K8 

eB EX BE, HL 

a) Lpor 

£8 EX SE, HL 

23 IWC HL 

22785C =. sD (UDG) HL 

28 on 

014000 LB BC, #0040 

EDs33ESC LD «RASPD, BE 


yJuap abead here when doing a HEW 


228256 LORTF LG (RANTOP) HL 

21098 LBL, B3C00 

22365¢ LB (CHARS) , HL 

216082 t8 HL, $6200 The first location above the stack 
22065€ £8 (NSTBOT) HL 

23 DEC HL : 

3 LB (HL), #3 yThe last stack entry is 3£00. This 
rt BEC { represents an “iepossible* line 
Fg 18 SP,HL } auaber. 


oss 
6594 
0595 
ons 
OD9A 
0098 


ODgF 
ObA2 
ODAS 
ODAG 
ODAB 
ODAC 
ODAE 


OFF 
£02 


£05 
£08 


28 BEC HL 
2B DEC HL 
22305 LB = (ERR_SP) HL 
E058 ih oi 
06 wOP sSpectrus has an EL around here 
FO2I3A5C AD IY, ERR_NR 
Set up the initial Channels 
214068 LB OL, #4940 : 
224FSE LB {CHANS) HL 
tiAAIE LD ODE, S11AA 
O115¢0 LD BL, 80015 
EB EX DE, HL 
EDBO LoIR 
EB EX DE,HL 
Some of the systee variable initialization fros the Spectrus 
} resoved froa here, & put in the EIRON. This would allow 
$ expansion banks to add channels without having to do a Tot 
3 sucking sdout with the seaory layout 
338 LB A,838 
S2805C LD SATTR_PDA 
S28FSC LD {ATTR_T) A 
32485C “LB (BORDER) ,A 
212305 LD HL, 80523 
22095 LO (REPDEL) HL 
FD35C6 BEC i1¥-58) gK STATE gets aFF 
FDSSCA BEC (h¥-54} sK_STATE ¢ § gets OFF 
. Set up the initial streaes 
21Chik Lb ML, #LICl 
12805 {2 BE, STRHS 
OLOE00 LB BC, 8000E 
EDBO LBIR 
iStandaré video aode (752068 only} 
YOR & 
DIFF OUT (SFF),A 
sClear printer buffer : 
FOCBOICE SET 4, {1¥#t) gFLAGS - printer in use 
CB3SCR CALL S0A35 iClear print buffer 
FD363462 LB CLY#49),802 © :DF_S2 - Edit line = 2 lines 
CBAGOS CALL a08A8 pClear screen 
AF YOR A 
FDCBOIES SET 4, (1Y+1) SFLAGS {752062 enly) 
pPrint copyright aessages : 
M7H LS DE, 88117 sAddress of copyright sessage 
CO3FO7 CALL 9073 gPrint it 
FOCBOZEE SET 5, (1¥e2) FIV_FLAG - Edit line to be cleared 
jMave the code that will copy RAM resident code froe EXRON te 
j He can’t copy ENRON directly fros Hose ROM, because we heve 
switch the ROM out to do so. 2 
210B0E LD HL, 80508 
110060 LD BE, 94000 
611300 LD BC, 80050 
E580 LOIR 
pThis causes the code to be copied 
CB0080 CALL #6000 
Set up BS_SP, the Bank Switching stack pointer 
21CE6S U3 HL, @A5CE 
2288S “LB (H65CE) HE 
iThis effectively does a JP (nat CALL) to I0GE? (EXRON addres 
j This checks for additional aeeory and finishes initishizing 
- 4 Systes variables. in the absence of activity fros additions 
y banks, control will then be passed to OE2F, in the Nain Lec, 
248708. LS HL, 608E7 : 
CoiSs8 CALL $4815 $6070 ELT - goto £0867 


2 


This code is copied to location 6006. It im turn copies the RAK 
j Resident code from EXRON to 6266 


j This code has no Spectrus counterpart 


OEOR SEO! Lp A, 801 
OE6D «DSF4 OUT (8F4),8 
CEOF DBFF INA, CFF) 
E11 CBFF SET 7,8 
GE13 DUFF OUT (8FFI,A gEXROW is switched in, at this point 
GELS 216010 LB HL, #1000 
GE18 «110062 LB DE, 86200 
OE1B 013006 LB BC, #0430 A 
GEIE E280 LBIR 3Code is copied, here 
0620 CBRE RES 7,8 
GE22  DSFF OUY (RFF) LA 
GE24 AF HOR & 
0E25 DSF4 OUT C8F4) A gHose ROM is switched back in, now 
0€27 CY RET 
The Nain Execution Loop. Reads & handles BASIC lines and 
} Coesands that are typed inte the edit line 
OE28 FDSEIIO2 LOEZG LD = (V#49), 802g BF_SZ 
OE2C CRELIS CALL #1461 Be an auto listing 
gEnter here from initialization or NEW 
Of2F COSFIS "CALL S1S3F jEepty the workspaces 
OE32 SEOG LOES2 LBA, 800 
OE34 CB30I2 CALL 81230 OPEN °K® channel 
6E3? — CBE208 CALL 90A82 qLine ingut 
OETA CO27IA CALL $1427 pSyatax check 
OES FOCROOTE _ BIT 7, (8¥+0) ERR_WR 
GEL 2012 oR = NI,LOESS gduep if syntax is OK 
OE43 FOCHIOSS BIT 4, (1¥#48) gFLAGS2 
OE&7 «2844 aR 7, LOESD iE aot using channel K 
GE489 = 2ASTSC LB HL, fE LINE) Point to start of bad line 
ee4e = Chobod CALL $0009 r¥ipe the floating point trash 
SESF FDISOOFF LD of1¥#0),8FF =f #ipe the error code 
GE33 1800 aR = LOES2 feoeand give the prograseer another try 
tHere if syntax OK. Now check for a line nvaber 
OE35 2AS9SC LOESS LB HL, (E_LINE) Start of line 
$€38  22505C LB (CHADD) HL 
S€58 4817 CALL #1768 gGet Hine $ inte BC, if it exists 
OESE 78 LD 4,8 : 
OESF Bi oR € qlf a legal one exists, then juap 
O80 C2581 oP ONT, 81158 z and add it to the progras 
o€63 OF RST #18 iUheck first character 
OE&4 =FEOD ce 80D 
GE4s 2800 SR = 1, L0E28 gduap if it's only an ENTER 
sere if it's a coseand (no line nuaber} 
OES8 FOCEIONS BIT 0, (1¥¢48) sFLAGSZ 
CESC  CAEAOS CALL WZ, #08ER Clear screen, {f appropriate 
GE6F = CDAIOS ~ CALL #0689 tAluays clear edit line 
672.“ 3E19 LD Aet9 
OE74 FDg84F SUB EIY#79) {S_PO5N = hi byte 
OE77 328C5C LD (SCRCTI,A © Set up seroll count 
OE7A FOCBOIFE SEY 7, ¢i¥#1) gFLAGS - Signal "line execute? 
GEE FDSSOOFF LD {1Y+0),8FF = sERR_LNR © Mo error 
G£62 FOSGOAC! LB 1010), 801 gHSPPC = run the first statesent 
OER FOSEPCCE LB CEYe124), 860 - :ERRLN = ON ERROR GOTO 6 
QEBA COOGIA CALL SiAbe gRUM the line 
ythe address of this instruction is potated to by ERR_SP 
S€8D 76 LOEGE HALT 
gh Jengthy addition for the 782068 
QESE FE7EG0 tb A, i1yed) FERRER 
GE? FEFF cP OFF 
SES 2833 aR 1, LOECB lf ERR_NR shows ne error 


G93 FOCB7BVE 
O€99 2828 
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BIT 7, fE¥e825) 
aR 1, LOECB 


gERR_LN - hi byte 


qHere if no error 


‘FOCB7OFS SEY 6, C1¥#125} sERR_LN - hi byte 

‘s Ic A gProduce *proper® error code 
yepse LB (ERAT) ,A 

FDSSOOFF LB oCLY#G),8FF = gMipe the error 

2R45SC LD OWL, (PPC) 

22885C LB CERRCD HL jSave the line where error occurr: 
JAs75C LD A, (SUBPPC) 

J2BASC LB (ERRS),A } Save stateeent where error occur 
2ABASC LO HL, (ERRLND 

ceec RES 7,8 5 

cBe4 RES 6,4 greset ERR_UN flags 

22425E LO (NENPPC),HL «© jline to be jusped to 

FDSSOA0S LD {1¥#10),801 gJuap to statesent 1 of the line 
218DCE LD HL, 80680 

3 PUSH HL pPreload stack with return to O€8) 
CSBSIA ap BLABY ydo a “statesent return® 


3E07 «= LOECS LOA, £07 

D3FS OUT (8FS),A 

JEFF LDA, OFF 

DS OUT (4F6),A glnitialize sound chip 

FOCBO2SE RES 3, (1¥#2} sTV_FLAG - fix input cursor error 
gHere’s where the Spectrue version resuses 

FOCBOIAE RES 5, (1¥#1) FLASS ~ ready for new key 

FOCBIORE BIT 1, ¢1¥#48) pFLAGS2 

C2308 CALL NZ, 90A23 duap print buffer, if there's ix 

SABASC LBA, (ERR_NR 

x we A 

FS PUSH AF -pSave “proper® error nuaber 
sReset soae systes variables 

210000 LB HL, #0000 

FD7437 LB O«1Y#55),# iFLAGE 

FO7A28 LB OCLY#38),H pU_PTR, Bigh byte 

22085 LB (DEFADD) HE ; 

210500 LB HL, 80008 

22465C LO (STRNS +4), HL Stream 0 gets channel K 

CORES CALL Si33F sEspty workspaces 

FDCBSTAE RES 5, (1¥#55) jEdit ode 

CDAIOB CALL #0BA9 Clear edit line 

FRCBOZEE SEY 3, ¢i¥¢2) pIV_FLAG - for clearing edit Lic. 

Fi POP AF yError nusber - 

ay Le BA 

FEOR cP 8A 

3802 dR = C,LOFOC duap for reports 0-9 

C407 ABD A, 807 Convert to ASCII letter 

CDEALL LOFOC CALL S11EA Print error code 

3E20 L5 A, #20 : 

o7 RST 810 sPrint a space 

78 LD A,B yError nuaber 

LISSOF LB DE, BOF4S sAddress of sessage table 

CO3FO? CALL S073F pPrint the aessage 

AE TOR A 

Wi3il LD DE, 81115 gaddress of the ° ,° string 

£DSF07 CALL 8073F Print it 

£D45455C LB OBC, (PRC) gline nvader 

Ch86i7 CALL $1786 Print it 

TEM LB OA, fs® 

a7 RST B10 Print it 

FOSEOD bb LC, Cr¥#1y) gSUBPPC = statenent nuader 

6800 Lb 9,800 

COS8i? CALL 01788 Print it 

COF DOR CALL SOBFD yClear edit ares 

JABASC LD A, CERR_WRD 

aia we oA 

2818 OR 1, LOFSS pit "error sessage’ is "OK* 

FEO? cp oa? 

2804 JR LLOFAS 11 “error® was a STOP stateer 

FEIS cp 8g : / 

2003 JR NZ,LOFAS $1 *error® was a BREAK 


FD3405  LOF43 INC (IY#8d) 


pSUBPPC 


SETTING THE FIGHT FROFORTIONS 

~Wes Brzozowski, SINCUS 
Before reading too far into this, go grab a newspaper or some 
other publication that has print taid out in narrow columns. Count 


the number of letters and blank spaces on several lines. Chances 
arey you'll! find that each line contains a DIFFERENT number of 
characters. 


This is done with a method called Proportional Printing. It 
turns out that fat characters like M take take up a whole [ot more 
space than the tiny letter iy so each character is given only as 
much room as it needs. Not only is this much more pleasing to the 
eye, it allows a surprising amount of extra text to be squeezed 
into the same amount of space. : 

Our TSZ068s normally display 32 or 64 Cand now 85) columns of 
text, with each character taking up the same width, no matter what 
its size. It seems that we should be able to improve this 
somewhat. 

Actually, the job has already been done for us. In the Nov. 
1985 issue of YOUR SPECTRUM, in the articie “Ali Out of 
Proportion", such a program is given. Unfortunately, it does have 
a number of defficiences. I’ve corrected as many of these as are 
practical (though thay can still be annoying at times) and 
presented it here for your use. Note that the Spectrum program and 
my perversion of it here are radically different in many ways. If 
you've got the old version, you'll! still have to completely retype 
it for the TSZ068. Still, they do function somewhat alike, and you 
might find the text of that article to be helpful. 

For those who have that original articie, the main differences 
are: 1) the code is modified to run on a TSZ2068, 2) machine code is 
initially entered through DATA statements, eliminating the need for 
a hex ftoader, 3) the character fonts are MUCH improved, and you 
don’t have to type in the pixel patterns for each, because my 
program derives the patterns from the Timex patternss already in 
ROM, 4) the code works as in OVER 0, rather than OVER 1, so if you 
print over a space that already contains text, you won’t get such 
an awful mess, and 5) the TAB function is also implemented in the 
proportional mode. 

This article contains two programs; type in and RUN the first 
one. After a long wait, it will SAVE the true proportional printing 
program to tape. When you reload that one (no waiting required, 


from here ond you’ll be ready to begin. F 
It starts out with a little demonstration of proportional 
printing. This redefines the LPRINT command, so it will conflict 


with your use of a printer. I haven’t found this to be any bother 
in the types of programs I’ve used it in. Still, if there’s 
sufficient interest, it shouldn’t be too hard to produce an add-on 
program that inserts a "proportional print" channel, and attaches 
it to an unused stream. This could ailow your normal printer to 
work Cin its normal mode) in conjection with proportional printing 
on the screen. In the mean time, if your printer supports a COPY 
function, that should work with this program, as i5- : 

In any case, LPRINT now prints to the screen in proportional 
mode, and PRINT continues to work like it always does, so you can 
mix BOTH methods in your program at once. However, both maintain 
their own separate screen locations, so you can easily print to 
different parts of the screen with each. 

Fer proportional screen positioning, you can use LPRINT AT and 


LPRINT TAB commands. However, note that the old AT and TAB re 


Sl 


he 


functions use screen positions that assume all characters are 8 


pixels wide. This would never do for proportional printing; so when . 


you use AT or TAB with LPRINT, you specify the X and Y locations in 
PIXELS, not in characters. This means you can place your characters 
anywhere you want on the screen, right down to the pixel level. The 
BASIC programs from lines 3030 on give a reasonable demonstration 
of how it works. 

The YOUR SPECTRUM articie also included a font designer 


program, which is included here, but this is optional. To move’ the 


cursor, use the @, A, O, and P keys. Use M and N to turn a pixel on 
or off. F keeps the design, D displays a character, U displays the 
entire character set and 5S and J save and toad the character. set. 
LOAD in a SAVEd character set to the main program with LOAD “" CODE 
64208. Once loaded into the proportional print program, you can 


save the program and fonts together, and never bother with the. 


fonts again. 

The proportional printing fonts require one new thing we never 
worried about before; you have to specify how many pixel wide your 
character is. To do this, you design your character to touch. the 
right most border of the & x 8 character block you’re given. Then, 
in the top row of pixels, you set each pixel that’s in a valid 
column for that character. Thus, if your character is to be five 
pixels wide, simply set the right, most 5 pixels in the top row 
(those won’t be printed on the screen; don’t worry). Don’t forget 
to include one or more pixels for the spacing between characters! 
In the “standard” character set, I’ve chosen to have only one pixel 


width of space between characters, and a “blank space" character is. 


4 pixels wide. This works fairly nicely, but you can change it to 
suit your needs. 

A small sample of proportional printing is included here. 
Won’t that [ook nice in your next program? 


NOTES from Editor: 4 big thanks to Wes, with all Wes does, and it 
is a fot foiks, Wes finds time to do projects for us, Time Designs, 
answer 2 lota mail, write programs, find time for family and of 
course his employer. Ati of the TS family benefits frop the 
generosity of Wes and all the others who contribute their vaiuable 
time and talents to their user group and newsletters and BBSs. If 
you like being on the receiving end of the efforts of others, and 
da not contribute time, talent or sweat to the efforts af a user 
group, nensietter or BBS, there will soon be fewer or no sources af 
information. Several UGs and many BBSs have quit over the past 
year, several newsletters have reduce their number of issues and na 
replacements are in sight. Wake up folks, smell the coffee, and 
lend a hand before it is too late. 

The proportional printing program will be Uploaded to BUBBS under 
name of WESPPP.BAS. The font program may be uploaded at ai later 
date. Data on BUBBS: (6073693-3359-7 days-24hours a day- 300 baud on 
from Spm to Gam weekdays, 24 hours weekends-free. 


On pages 7 thru 10 of this issue; as in earlier issues, we are 
running a printout of the TS2068 ROM disassembly by Wes Brzozowski. 
We are running extra copies of each page of the ROM Disassembly 
that we may offer members at the conculsion of the printout a 
complete set. With this issue we have nine sheets or 18 pages of 
printout. Qur extra capy run is set at 50, it will be made 
available on a first come first serve basis with a minimial 
donation requested to cover postage. 
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aece LET smin=8: LET daddr=daddr 


11478 FOR x=1 TO 8 

2188 LET s=@: LET r=sPEEK daddr: 
LET daddrsdaddr+i1: IF r=0 THEN G 
QO TO 12296 

119@ IF _ ASS (rvQ-INT (f72)3>.1i T 
HEN GO TO 1218 

1200 LET s=S$+i: LET rsINT (irva+, 


421@ IF s<smin THEN LET smine=s 
1228 NEXT x 

i225 IF smin=8 THEN LET smin=1 
i226 LEY q=2t ismin-13-i:. IF smin 
=1 THEN LET a=2 

1230 POKE daddr-3,¢ 

1248 NEXT c 

1250 POKE 642890,15 

12628 FOR j=84204 TO 642807: POKE 
J,;9: NEXT 

2008 BEEP Yas, 1: BEEP .25,15: BE 

EP .25,14: BEEP 225,15 

2010 SAVE CHRS S534CHR$ 2454CHRe 
8+" ING’+CHRS 235+"YOU" LINE 200 


2828 SAVE CHRS 23S+CHRS 284+CHRS 
227+"THE “+CHRS 175 CODE 64200, 


2025 Bo aun ae ida 64978 
2830 ecas eo - 


3888 CLEAR 641995: LOAD "CODE 


. $810 RANDOMIZE USR S4a5728 


3828 GO SUB 3808 
336 LPRINT 


 3@48 LPRINT “You can row NEW the 


BASIC portion away; 
3658 LPRINT “This wilt Turn off 
the proportional printing..." 
3@6@ LPRINT Med: you can turn it 
On again, wit 
33878 LPRINT TAB 60; “RANPONIZE us 
R 64975" 
3889 STOP 
8@88 CLS : FRINT “This is an €x@ 
mple of the boringold printing. 
What else covld wewant? 
6@1@ LPRINT AT @, SO; “Weil, we co 
ree wish For proportional Pprinti 


3320 LPRINT “Look how neat it is 
and how @asy it if to readi" 
8a30 LPRINT “..e2Thenm, count row 
Many additional characters we 

can get on a tine.” | 

8642 LPRINT é 

S650 LPRINT “REMEMBER...these th 
aracters are the SANE SIZE 
@S-the standard Timex character 


-S$@t. Ontyuthe spacing between the 


m has been changed!i!" 


. 8863 RETURN 


This if an Example af the boring 
oeece Printing. What else could we 


UetL, we COULD wish for proportional printing; 
Look how neat it is, and how easy it is to read 
we Then, Count how Many additional characters 
We Can 9et Cn a Line. 


REMEMBER...these characters are the SAME 
gs &S the starkiard Timex character set. Only 
thé spacing between them has been changed? 


Optional Font Designer Program 


1@ CLEAR 33999 


168 PRINT aT 2,3; aes 
110 FOR f=3 TO 10. PRINT AT f,3 

*oooococas" - NEXT f 

“a20 PRINT AT 11. 3 ae 
130 LET a=@: LET b=0 

BOO GUER 1: PRINT AT a4+3,b+4;" 
“> PAUSE 2: PRINT AT a+3,b44; "9" 
: PAUSE 2: OUER 2 

210. LET a=a+(INKEY#="a"' AND a<?7 
)=(INKEY$="q" AND a>@) : 
220 Ler b= sb+ CINKEY $= "p“ AND b¢? 
) = CINKEY$="0" > 

238 IF INKEY$="m" THEN PRINT AT 
Bes iets; INVERSE 4;"X": PLOT be 
60, (8-ai+ 
240 IF INKEYs="n° THEN PRINT AT 
3+3,b44;"0": PLOT INVERSE 1;b+i 
60, (8—-a) 4151 

250 IF INKEY$="f" THEN GO TO 30 
Q 

260 IF INKEY$="d" THEN GO TO 4@ 
g272 IF INKEYS="u" THEN GO TO Se 
og’> IF INKEYS="s" THEN GO TO 1¢ 
p200 IF INKEYS="j" THEN GO TO 12 


29@ GO TO 2ae 
S36@ INPUT “Which Character? “jc 


s 4 

310 IF LEN c$<>1 THEN GO TO 3ea 
328 IF cCobeE oh es OR CODE c>il2 
7 THEN GO TO 


SS0 POKE (c-32) ¢8+f+ba,PEEK (16 
466+(F4255)3)}: NEXT Ff: RUN 
400 INPUT “Which Character? "jc 


Ef 

410 IF LEN c$<>1 THEN GO TO 4a8 
426 IF CODE c$<32 OR CODE c$>12 
7 THEN GO TQ 402 

430 POKE 235@85,64: POKE 25607.1 
SS: PRINT AT 2,290;c$: POKE 23686 
78: POKE 23607,60 

440 FOR a=@ TO 7: FOR b=3 TO ? 
450 IF POINT (b+16@, (8-4) +151} = 
2 THEN PRINT AT _a4+3,b4+4; INVERS 
2;"“xX": GO TO 479 

462 PRINT AT a+3, hd “a* 

478 NEXT b: NEXT 
48@ LET a=@: LET bao: 60 TO 200 
SO@ PRINT AT 15.0;: FOR f=32 TO 
gi eg eed BRIGHT 1;CHRS fF;" “5 
Sel Peau. AT 15,0;" “;: QVER i: 
FOR f=32 TO 127: POKE® 23606, 64: 


CHRS fi: POKE 23606,0: POKE 2380 


7,60: PRINT "= “;: NEXT f: QUER 2 
> POKE 23606, Ce ’ POKE 23607 .69 
Panne ei,1: PAUSE @: PAUSE @ 


19000 INPUT “File Name? “;f$: SAV 
E f$CODE 40806,768: RUN 
1926 INPUT “File Name? “;f$: LOA 
D FSCODE 46@9@,768: RUN 


3 


10 REM Program to Perform Prop 
ortional Printing. 

185 REM An upgraded version of 
an entry in “YOUR SPECTRUM", Nov 


1385 

2@ REM Changes include - Modif 
ied for TS2e63, Supports TAB, be 
tter fonts, and works as in OVER 
@, instead of OVER i 

25 REM When you RUN this progr 
am, it will SAVE the actual Prop 
ortionat Print program to tape . 

38 REM When THAT program is fu 
fh, all LPRINT statements will do 


ereEeae printing to the sc _ 


re 

42 "REM AT and TAB are “supporte 
d, but they now refer to pixet p 
ositions, instead of Character pP 
ositions. 

S@ REM It will also be possiblt 
e tao use PRINT, to do non-propor 
tional printing on the screen. 

68.60 TO Sé5 

7@ REM Subroutine to decode th 
e following Hexadecimal DATA sta 
tements 

75 READ ns: rs hi=CODE ngti3: 
LET lto=CODE nt 

8@ IF hi>S7 a ieN LET hishi-?7 

85 IF to>S?7 THEN LET lLo=zlo-7 

9@ LET n=162hi+to-816 ~~ 

‘95 RETURN 

FR “21","00","R8B","22",°E 

ee * en Ee 4 “oa” 3 sz oe if 7 i a 
1128 DATA “SC" "01" , "OF 2 "88" ,°2 

bd td ? 
anne DATA ee a . “=7o" ; “co” i “Ee 

2 ed 2 

130 aes reie =e 3 “ER” ? "FD" 3 vey , “9 
148 DATA “FS Ss" as SA", "EQ. ’ “FE" r bid al 

2 

ise DATA “EL ie FE“, “76° , "20" 9 “9 


169 cata “Ege , eRe “f “og” “FRE A “4 
7" ee “as are | i 
A oigee ee "Ct 

ra “95°, "Fi", "3a", "ES", “F 
age Bata "35" ,7 C9", "FE" "FE", "2 
20a ¥ pata agen Ae" 5 “39° y "32" j “Ee 
210 mde a ee 5 “cg F as od aad 4 of 
220 DATA oa2: a. 2"FE“,“3E", °F 


32" ,"F 
230 pata "og, Ey ob Sid ‘; “OFC r "sa" ; te od 
@", "EE, “Cc 9" se i) 


zig bata. Zab", "20" ,"@9","CD", "2 

a" ; co i 5 “3e" ; "92" 

250 DATA “CD” ."38", "12","CO","F 
,"38" "04" 

A “PE, os oO", "3g" ; "g2 i 
ste DATA il ,"29","°29","E 
20e,cere | “49 ee - 7E", ity 32" A "EL oy i bbl od 

29 tetra “FE”, "Oi" ri "Or" > "9 

ATA ad ad ene ae SA", “ER” 3 bid ood —ield - “F 


3190 DATA te FE" : ae co" 5 oo) 43", “Ee ; oe 


320 pata “ope 4 38 93" P "96" 3 “30° ; ae od 
| 4 ’ a" A “ER . 

330 DATA iol 58 rene * “g8" 5 "cs" j “2 

340 DATA 728" 722", “EE”, "FE", "6 


Pe i a 
362 cata =90" 720" 7 os 42" 5 47" A “2 


@ bata “cb, "10", "CB", "3B", "C 
389 DATA “A "10", "FS", "42", "4 
390 bara i a Mr Ow 
400 DATA "3A", "ED", "FE", "FE", "@ 
410 Batata: 20", “Ban, "12", °C 
“2A, "EB", ORE", "CD", "F 
450 DATA “FE "C4", "10", "AF" "3 


442 bata ee ; “FE” ; le do dd ; “39 ae P “Ee 
452 DATA "Re" 5 “FE™ e “so” is “eo " 5 "“E 
460 DATA "AB" pee” ; "990" 7 "9a" > "@ 


DATA "90" . “8o" ; "9" ; “eg j "2 


489 DATA SEG" 797", "20", "OA", "7 

492 DATA "38", "BEtP SIO) "C6"; “8 

58a DATA a it a 

Sia DATA “a4 40 ggOe OR" SAM, “F 

$22 Bata -cb" "99", is", “es 770 

530 patra Page rf F6 “( “PE "aq", “Ee 

9°, "PE" "ee", 

a “OF FY. as 32 o ae EQ ha 5 cad FE oe y ag 

Fe" "be" 

sse oatTa "98", ae se", “EQ' ; “PFE ’ “Ee 
b- Sees 

560, pata “eRe , as @F", a cs ee " oe QF" j *“¢ 

Lh a on Fr , at 6" 3 "93" 

2 oe "FS id ‘oye! 62" ; "6B baad a bag 


séo DATA meqe. °F, “C9's 
585 CLEAR 64199: PRINT AT 18,8; 
“This Will Take & While...": prt 
NT seeWhy not take & break?” 
SSO REM TeX FSSFSSSTEFEFSTLESEXES 
610 FOR j=64978 TO 5 eral Go su 
B 78: POKE j,n: 
788 REM SEPESES ESTEE ELELS SELES 
710 REM Now that the machine co 
dé is in, we’tt derive the compr 
essed fonts from the standard Ti 
mex character set 
19000 LET addr=PEEK 283606+255-PEE 
K 23687+256+83: LET daddr=54208 
4018 FOR c=i TO 95 
1620 LET smin=16 
4903@ FOR x2zi TO 8 
retard goal {=PEEK addr: LET addr=a 
+e 
1@S0 IF (<1i6 THEN LET s=16: GO T 


196% IF l<32 THEN LET s=8: 69 TO 
1076 IF .<64 THEN LET s=4: 65 TO 
1075 IF (<i28 THEN LET s=2: GO T 


1@88 LET s=i 

1992 IF sismin THEN LET sminss 
4108 NEXT x 

1411@ LET addr=addr-s 

112@ FOR x=i TO 8 

2136 POKE daddr, (PEEK addriesmin 
1140 LET addr=addr+i: LET daddre 
daddrel 

11458 NEXT x 


© “New, News, Views and Reviews CON iis coeCcmwassietecnseceesassieeacnesser ed neds an sehaeess sentaG@e ne ececuseedY Paul Hill 


To Frank and alt. the people who heiped put on the 87 Computerfest - Three CHEERS and and very big BiG TH A N K YOU! 
Though no local members were able ta attend, the reports coming in from goers.is ail un beat, and ail are iooking 
forward to next year! 'An estimated 10000 volunteer manhours went into the production of the FEST. Is there any other 
orphan or NON orphan computer group that has so much for the users and their jittle orphan computers? I quess 15 users 
are a special breed and the foiks who put on ComputerFests 86 & 87 are at the top of the fist. 

NEW: "PAINT’-by Dave Franson, 3534 A E. Squire Ave., Cudahy, WI 53110-$19.95. Gx normal color resolution, 25 unique 
functions, joystick controi, menu-drive, HiRes, greyscale screen dumps to 152040 and Epson compatiables, Full color 
hires dumps to Canon color ink jet and compatiables, supports AERCG centronics IF. with 24 page manual. as seen in SMUb 
Bytes, May 87 

NEWS: On the down side of the TS worid, it has been learned that ZX Computing has called it quits- it was a Very Great 
magazine until it went heavy on games about a year ago. Blane on declining readership, not content?? They are refunding 
subscription monies. This info from SLUG newsletter, June '87, Sinclair Louisvitie Users bGroup,4iz2 Wallingford, 
Louisville, KY 40218 2965 

NEWsDesktop Fublisher for the TS20K8, $19.95 + 1.25 shippingy Charies Steidings 1415 Sauth Baxter, Tyler, TX 75701. Make 
headlines, use screens, design fonts, elimanate scissors, qlue and messy results, use for newsletters, church or PTA 
bulietins or whatever! 

NEWS: Info here is from COMPUTE! May 1987 magazine page 51, "12 Special Bulletins Boards" 

Nate Telephone Specific into 


Aviation Connection 
Bullet 'N Board 


214-245-3635 
703-971-4491 


Balias, TX dedicated to pilots and aeronautics buffs 

Silver Spring YA, NRA info, firearas, jegisiative happenings, special 
registration process-free board. SYSOP is Tanya Metaksa 

Atlantic City, NJ- You wont win but you dont lose either includes 
nightiife and entertainment guides, best slot payoffs 

Los Angeles, CA Info and data on collectibles-coina,cards,radem talk with 
SYSOP Harry Rosenfelc. é 
Plano, TX SYSOP Cpt, Lyndon Payne, gives tips on crime stopping, personal 
protection, check out the “Crime of the Week" 


The Casino BBS 699-652-6036 


follectors Netyork 219-204-0646 


Crime Prevention 214-578-1311 


Cryptologic Research 
Electronic Cali Board 
The Suideboard 


MIDI Worid Network 


703-297-4322 
718-499-1693 
415-864-3858 


219-826-4288 


Survival Communication 707-545-0746 


Top of the Rockies 
The Train Boara 


McLean, WV hours 5:30pm-8:00am EST N-F coded messages turn you on oy da you 
fave a computer security probiem? Cali SYSOP Robert Juneman 

Brooklyn, NY dedicated to the performing arts SYSOP Bob Ballard keeps 
casting notices, schedules of stage shows around the country, more!! . 
San Francisco-taxi cab drivers BBS find out what's reaily happening in the 
Boiden gate City!! 

Los Angeles, a devoted BBS to MIDI related computer use . 

Kapa Valley, CA SYSGP Don Kulha hosts conferences on medicine, foods 
energy; communications, weapons, and vehicles. 

Roaring Fork, CO SYSOP Barry Ciewents gives out ski info for Colorado. 
Mason, OH- model train buffs- radio controlled hobbies-SYSOP Decker Bogget 


wants to talk to you! 

NEWS: To al! members we at SINCUS now have our own conference on TCCS-785-2118 after you fog ony just enter J 5 and you 
are on! This is not restricted to SINCUS members but open to and for ali, Scott Wiltsey the SYSOP has the computer on 
from Sam to iipm-seven days a week. Use it or lose if! 

ALERT-noden users beware of using the same password on every BBS- locally a new BBS's files were used by an individual 
to obtain passvords. A fot of messages on other BRSs were erased by this individual using the perioined passwords. I was 
one lazy user, and had used the same on every BES, now I am changing all wy passwords. 

NEWS: We here at SINCUS have been getting tapes from members with some outstanding programming efforts on ae if not 
in programming talent, surely in time of copying long long programs out of British magazines. With John atone 5 helps 
I hope we can start getting the tape exhange program rolling, It will take some time, so please be patient. | d like to 
thank Richard Hurd, Joan Kealy and Harold Crandail for recent tapes. Several other members have helped out in the past, 


and to those aiso we will get updated material to you. 


pep penrerererere ren Tel TD TD abated 
Hew ee ee ewe ee mee ee eee eee eee eee - 
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NewyNews Contessseees 

NEWS: In the May/June 1987 issue of Tine ava on page 13, there is a program called “CK type’. This is supposed . 
to aid those who type in a long article and commit a typo, and then may vant to commit something else. This gives a 
checksum type figure for every jine of BASIC. It is only used with submitted listings, to give future listing 
copiers a figure to compare to. This will work on the TS2068, but many of the listings are in British mags, and I am 
not aware of any sort of checksum being used there. It is a very good idea. Passing works around via BBSs saves . 
nany the tedious job of typing in several pages of listings. But some kind soul has to type it in and then donate 
his/her efforts te the rast of us, Stan Lemke developed and donated this program to the 1S community thru Tine 
Designs. 


Secretary's Notes Cont--------------------- 

A Scroll of the Screen and Hello and Welcome to Elliana Tartarini, Exeter, NH: Don Berry, Orlando FL: Robert 
Tisdale, Ellisville, MS: David Maguire, E.Greenbush, NY: Mark Millers Baldwin Parky CA: John Austin, McKenney, TX: 
Hal Beilinsony Troy, N¥ and Ken Diederich, Jacksonville, AR and a real big thanks to renewing members, Richard Hurd, 
Warrenton OR and Ian Robertson, Islington, Gnt.{saw your pic in TDN-1 think?> Thank you all for your support and we 
look forward to hearing from you in the fore of printable input ta our newsletter. Keep those articles coming!! 


SRE A ne ee hea ese set se ai adver tisementic src trees rrr eae 
CLONE--CLONME--CLONE--To make a tape backup of that $25 original 
program, aor easily duplicate copies of that program you are going 


to market, get CLONE. Can LOAD all BASIC & MC in one step and 
then SAVE it all in ane mare step. Gn TS2066 programs this is all 
you mead. For the more sophisticated ropy protection in many 


Spectrum programe it can use 2 tape recorders, and the TS2065 (Cas 
A noise Tilter and pulse stretcher? to also maké an acceptable 
backup copy. Runs under beth TSZ068 and Spectrum ROMs. Easily 
transferred toa the Simnelair Microdrives Sipe ah still for making 
tape Capiess, sa it can probably be transferred to other mass 
storage systems, as well. Dues paying members of SINCUS can obtain 
a copy and documentation for $6, shipping included, as well as 
Weer support. Make check out toa SINCUS. Mail tm SINCUS, Lacy 
Rhoades Eoacd, Johnson Citys, NY 13790. CLONE--CLONE 

nonmenbers can obtain CLONE thru EMG, isi19 1/2 7th Street, Oregan 
Citys OF S7OdS5rwrite for pricessend 12 SASEs and get on a special 
price offering mailings pius a $3 off coupon. 


rr rr i ns te ee ee ee te ee ee a ee ee ES RR Se NY 


SINCUS NEWS continues to give permission to reprint ANY article 
provided the Author and this newsletter are given credit by nanics 
date and mailing address. Commercial ad rates are <copy in black and 
white-camera ready>: 

Full page-7"x 10"----$10 

1/2 page- 7" x 5"----$6 

i/4 page- 3.5” x 5"--$4 

Circulation: 72 members:24 Swaps 


Members can get a free ad per subscription-22 /ines x 32 characters per line. Same Size for non-members is $2, 
commercial rate for same is $3. Subscription rate is $8 (US) for 6 issues a year, US, Canada and Mexico. Swaps 
maintained with any TS user group as fong as material is exchanged every 90 days. Should SINGUS NEWS discontinue 
publishing all subscribers will be refunded unused portion of subscription, less postage expenses. 

SINCUS and SINCUS NEWS are non profit, all volunteer organizations dedicated to the user of TS computer. Any product 
or service mentioned is mot an endorsement, and all views and opinions are not necessarily those of the society. 
Does the room temperature SUPERcanductor cometh and what does it 

bode for ust : . 


See you in Saptember, have a good. summer and keep TSing! 


